Option Explicit
Sub B_Sample042()
    Dim myWb As Workbook
    Dim myWd As Window
    Set myWb = Workbooks(1)		'Nï
    Set myWd = myWb.Windows(1)
    With myWd
        MsgBox .Caption			'D
        MsgBox .WindowNumber		'P@ïX
        MsgBox .DisplayFormulas		'
        MsgBox .DisplayGridlines	'ؽu
        MsgBox .DisplayHeadings		'Cs
        MsgBox .DisplayHorizontalScrollBar	'Vʶb
        MsgBox .DisplayOutline			'~ؽu
        MsgBox .DisplayVerticalScrollBar	'Vʶb
        MsgBox .DisplayWorkbookTabs		'D
        MsgBox .DisplayZeros			'0
    End With
    Set myWd = Nothing				'
    Set myWb = Nothing
End Sub
